home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr28 / an210x.zip / BINDERY.FRM (.txt) < prev    next >
Visual Basic Form  |  1993-03-19  |  8KB  |  217 lines
  1. Form1
  2. Bindery Object Lister
  3. Form1,
  4. Label11
  5. Label15
  6. Label15
  7. Label9
  8. Label9
  9. Label8
  10. Access Control
  11. Label5
  12.     Has Props
  13. Label6
  14.     Dyn/ Stat
  15. Label2
  16. Object Name
  17. Label3
  18. Object Type
  19. Label4
  20.     Object ID
  21. Label14
  22. Label14
  23. Label7
  24. Label1
  25.     Add Props
  26. BinderyObjList
  27. Courier
  28. Label10
  29. File Server:
  30. ServerNameBox
  31. RescanButton
  32. Rescan
  33. AboutButton
  34.     About ...
  35. CloseButton
  36. Close
  37. List1_Click
  38. Form_Click
  39. @    Form_Load
  40. ccode
  41. ScanBinderyObject
  42. searchOName
  43. OT_WILD
  44. oNameG
  45. oTypej
  46. oHasProp/
  47. oFlag
  48.     oSecuritye
  49. Command1_Click
  50. oNameAsY
  51. OT_USER|
  52. strippedName/
  53. OT_USER_GROUP
  54. OT_PRINT_QUEUEk
  55. OT_FILE_SERVER
  56. OT_JOB_SERVER
  57. OT_GATEWAY
  58. OT_PRINT_SERVER
  59. OT_ARCHIVE_QUEUE
  60. OT_ARCHIVE_SERVER<
  61. OT_JOB_QUEUE
  62. OT_ADMINISTRATION 
  63. OT_REMOTE_BRIDGE_SERVER
  64. hasProperties
  65. List1
  66. ScanBinderyz
  67. List2_Click
  68. fileServerName
  69. logTime
  70. connIDB
  71. GetFileServerName
  72.     newFSName
  73. ServerNameBox
  74. BinderyObjList(
  75. ServerNameBox_Click
  76.     ListCountv
  77. BinderyObjectList
  78. prefServer
  79. GetConnectionID
  80. SetPreferredConnectionID
  81. ServerNameBox_DblClick
  82. Command3_Click<
  83. RescanButton_Click
  84. Scanning
  85. UnloadT
  86. Form2
  87. CloseButton_Click
  88. Command2_Click
  89. AboutButton_ClickQ
  90. Label1_Click
  91. MousePointer
  92. Form1m
  93.     DrawLinest
  94. CheckDLLVersionss
  95. success
  96. GetDLLVersion
  97. majorVer
  98. minorVerG
  99. revLevel
  100.     betaLevel
  101. False
  102. CrLfl
  103. BinderyObjList_Click
  104. Screen
  105.     oHasProps
  106. OT_NAS_SNA_GATEWAY
  107. OT_TIME_SYNCHRONIZATION_SERVER;
  108. OT_ARCHIVE_SERVER_DYNAMIC_SAPM
  109. OT_ADVERTISING_PRINT_SERVER2
  110. OT_BTRIEVE_VAPd
  111. OT_PRINT_QUEUE_USER
  112. codez
  113. garbage
  114. requests
  115. objectType
  116. bindery
  117. objects
  118. DLLName
  119. expMajorVer
  120. expMinorVer
  121. expRevLevel
  122. expBetaLevel%
  123.     expMajVer
  124.     expMinVer
  125. expRev
  126. expBeta
  127. expRef
  128. above
  129. Form_Load
  130. change mouse cursor to hourglass
  131. make sure we're using right versions of NetWare DLLs
  132. NWCore.DLL
  133. NWWrkstn.DLL
  134. NWServer.DLL
  135. NWBind.DLL
  136. for each connection in workstation's file server name tablea
  137. get the table entry, then see if it's null
  138. you have to explicitly look for a null in the first character,
  139. because Visual Basic doesn't know about null-terminated strings
  140. (a null prints as a space)
  141. scan the bindery of the default server
  142. ScanBindery
  143. change mouse cursor to hourglass
  144. clear out the old list of bindery objectsa
  145. initialize object ID to -1 for first call to ScanBinderyObject
  146. take all characters of object name up to terminating null 
  147. then take first 20 chars
  148. pad with spacest
  149. User            
  150. User Group      
  151. Print Queue     
  152. File Server     
  153. Job Server      
  154. Gateway         
  155. Print Server    
  156. Archive Queue   
  157. Archive Server  
  158. Job Queue       
  159. Administration  
  160. NAS SNA Gateway 
  161. Rem Bridge Serv 
  162. Time Synch Serv 
  163. Arch Srv DynSAP 
  164. Adver Print Srv 
  165. Btrieve VAP     
  166. Print Q User    
  167.         
  168. format the bindery object ID as 8 hex digits, with leading zeros
  169. does the bindery object have properties?
  170. is the bindery object static or dynamic?
  171. Stat  
  172. Dyn   
  173. who can scan for the bindery object,
  174. and who can add properties?y
  175. Any  "
  176. anyone can scan for the object
  177. Log  "
  178. any logged user can scan
  179. Obj  "
  180. only the object can scan for itselfn
  181. Sup  "
  182. only the supervisor can scan
  183. OS   "
  184. only the operating system can scan
  185. Any  "
  186. anyone can add properties to the objectr
  187. Log  "
  188. any logged user can add properties
  189. Obj  "
  190. only the object can add props to itselfr
  191. Sup  "
  192. only the supervisor can add propsi
  193. OS   "
  194. only the OS can add properties
  195. finally, add one more entry to the listy
  196. of bindery objects
  197. change mouse cursor back to how it was
  198. ServerNameBox_DblClick
  199. a better program would check the ccode here, to seeo
  200. if the connID is valid (maybe the user has disconnectede
  201. from the specified file server after running this program)
  202. tell which file server to send
  203.    requests to
  204. then go scan its bindery
  205. RescanButton_Click
  206. same effect as if the user had
  207. double-clicked on a file server name
  208. CloseButton_Click
  209. AboutButton_Click
  210. CheckDLLVersions
  211. ignore beta level
  212. Incorrect version of "
  213. Your version is: "
  214. This program requires 
  215.  or above"
  216. Critical Error
  217.